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MODULE GETTIM ( 


BEGIN 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE £3 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


CL TH OVE ANY _OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PRANSFERREOY NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
OORPORAT tne NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


E 
T 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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i FACILITY: F11ACP Structure Level 1 
i ABSTRACT: 
This routine builds a date/time string in the format for file headers 


in the indicated Sulter. 


i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 


i AUTHOR: Andrew C. Goldstein, CREATION DATE: 2-May-1977 16:07 


i MODIFIED BY: 
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v03-001 CDS0001 ; Christian D. Saether 4-May-1983 

Make descriptor PIC. 
A0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:03 
Previous revision history moved to FI1TA.REV 
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ix. SRCIGETTIM. B32; ? 


0-742 


32 


VAX-11 Bliss- 4 2 
NTEKSUMBHASTERSLY TIM GREIGETTIM.B32:10 8° (15 


1882 93:39:34 


1$:}ee- 


ARY:L 18 ,L32"; 


DEF .B 
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H 4 1088 ! GLOBAL ROUTINE GET_TIME (BUFFER, TIME) : NOVALUE = 

5 19 S 4 fe 

; & 1055 1! 

: of 1928 ! FUNCTIONAL DESCRIPTION: 

; w& 1058 1! This routine builds a date/time string in the format for file headers 
; 1059 1! in the indicated buffer. If a time is supplied, it is used; if not, 
3 f} 1399 : } the current time is used. 

ee 1066 1 ! CALLING SEQUENCE: 

; 74 1065 1! GET_TIME (ARG1, ARG2) 

; 1064 1! 

: 76 1065 1 ! INPUT PARAMETERS: 

. oe 1066 1! NONE 

; 1067 1! 

; FF 1068 1 ! IMPLICIT INPUTS: 

; & 1069 1! system time of day 

oe) 1070 1! 

; §¢ 1071 1 ! OUTPUT PARAMETERS: 

* & eg +} ARG]: address of buffer to receive date/time string 

3 se 16 : ARG2: optional 64 bit date/time to convert 

3 86 1075 1 =! IMPLICIT OUTPUTS: 

; Or 1076 1! NONE 

; 1077 1! 

; 89 1078 1 ! ROUTINE VALUE: 

: 1079 1! NONE 

; 1080 1! 

; 1081 1 ! SIDE EFFECTS: 

; 9 1082 1! NONE 

; 1083 1! 

; 1084 1 !-- 

; * 1085 1 

5 1086 2 BEGIN 

; 1087 $ ; F ; 

:; 299 1088 LITERAL ! entries in the numeric date/time buffer 
: 100 1089 2 YEAR = 0, 

3: 101 1090 § MONTH = 1, 

: 102 1091 DAY = ¢ 

: 103 1996 2 HOUR = 3, 

3: 104 109 MINUTE = 4, 

> 105 1094 SECOND = 5; 

3 198 1095 

3; 1 1096 MAP 

: 108 1097 BUFFER : REF VECTOR C,BYTEJ; ! date/time buffer arg 

3; 109 1098 

3; 110 1099 LOCAL 

: 61121 1100 TIMEADDR, ! address of 64 bit date/time 

; HT 1101 !_ dummy to receive string Length ; 
; 1 1108 TIMBUF VECTOR C7, WORD], ! buffer to receive numeric format time 
3 (114 110 FORMAT : VECTOR 31. "FAO format string descriptor 

3 133 1188 BUF _DESCRIPT : VECTOR ;  ! descriptor to pass buffer to FAO 
s 17 11 $ BIND 

3; «118 11 ' month name table 

s 119 1108 MONTH_TABLE = UPLIT BYTE 
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GETTIN 16-Sep-1984 00:35: VAX=11 BLiss-32.V4.0-742 p 4 
$54~000 oreo Re 18 eat, Peet eblet eRe ceTi ks cReacerrim.e32:1°% «24 
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("JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC ‘) 
: VECTOR; 
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EXTERNAL ROUTINE 


SYSSNUMTIM : ADDRESSING_MODE CABsOL UTE? 

! systes time in numeric format 
SYSSFAO : ADDRESSING_MODE (ABSOLUTE); 

! formatted ASCII output 


! Execution of this routine simply involves gertins the current date and time 
in numeric format from the systen, and then calling FAO to build the pst 
e ° 


' 
! 
date/time string in the buffer. The string is of the form ‘'‘DDMMMYYHHMMSS'' 


FI1$S_CREDATE + FIISS_CRETIME; 
-BUFFER; 


€ 
vo 
mn 
num 
aon 
20 
is 
vv 
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ew 
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B 

TIMEADDR = 0; 

IF ACTUALCOUNT GEQ 2 THEN TIMEADDR = .TIME; 

SYSSNUMTIM (TIMBUF, .TIMEADDR); 

PIC_DESC ("!2Z2W!AD!4(22W)", FORMAT); 

SYSSFAO (FORMAT, DUMMY, BUF _DESCRIPT, 
TIMBU 


YJ, 
3, MONTH TABLEC. TIMBUF CMONTH]~11, 
.TIMBUFCYEAR) MOD 100, 


* TIMBUF CHOUR 
- TIMBUF MINUTE) 
); 


END; ! end of routine GET_TIME 
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TITLE GETTIM 
~-IDENT \V04-000\ 


-PSECT SCODES,NOWRT,2 


52 50 41 20 52 41 4D 20 42 45 46 20 4E 41 4A 00000 P.AAA: .ASCII \JAN FEB MAR APR MAY JUN JUL AUG SEP OCT \ ; 
55 41 20 4C 55 4A 20 4E 55 4A 20 59 41 4D 20 O000F ; 
20 54 43 4F 20 50 45 23 20 47 00016 : 
20 43 45 44 20 56 4F 4E 000¢ .ASCII \NOV DEC \ F 
00 29 57 SA 32 28 34 21 4&4 41 21 57 SA 32 Al 90030 P.AAB: ASCII \!22W!AD!4(22W)\<0><0> : 
MONTH_TABLE= P.AAA 
.EXTRN SYSSNUMTIM, SYSSFAO 
0000 00000 ENTRY GET_TIME, Save nothing ; 1052 
SE 24 ¢ 9008 SUBL2 #36; : 
04 AE D D 999 MOVL #13. BUF_DESCRIPT > 1124 
08 AE 046 AC OD 09 MOVL BUFFER, BUF _DESCRIPT+4 : 11 3 
50 p4 0005 CLRL ‘ TIMEADOR : 11 
02 6C 91 0001 CMPB Ss), 2 > 1128 | 


04-000 


04 iF 
50 08 af DO 
5 pp 
18 a5 F 
00000000G 9F 8 4 
0 AE E 
1 AE C4 «OAF OSE 
7E 1 AE 3C 
7E AE 3C 
43 AE 3C 
5 AE 3C 
7E 90 ae 1 7A 
6E E E 00000064 F 7B 
50 6 a 3¢ 
FF67 CF40 DF O 
03 po 0 
7E 30 AE 3C 8 
20 AE 9F 
$0 AE 9F 0 
0 AE 9F O 
00000000G 9F OA FBO 
04 0 
3; Routine Size: 108 bytes, Routine Base: S$CODE$ + 0040 
: 154 1143 
3 «6155 1144 1 END 
s 136 1145 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes 
; SCODES 172 NOVEC,NOWRT, RD, 
: Library Statistics 
: eoeceoce= Symbols 
: File Total Loaded 
> _$255$DUA28:(SYSLIBILIB.L32;1 18619 19 


se" 
55% 


p=198 


Attributes 
EXE,NOSHR, 


Percent 
0 


4 5: VAX-11 Bliss-32 v4 
4 99: 33; 4) DISKSVMSMASTER: chix. 
BLSSU_1$ 
MOVL TIME, TIMEADDR 
USHL TIMEADDR 
PUSHAB TIMBUF 
ALLS #2, a#SYSSNUMTIM 
OVL #14, FORMAT 
OVAB P.AAB, FORMAT+4 
MOVZWL TIMBUF+10, -(SP) 
MOVZ2WL TIMBUF+8, -(SP) 
MOV2WL TIMBUF+6, =(SP) 
MOVZWL TIMBU Fe 
MUL #1, RO. #0, =-(SP) 
piv #160, ¢ pds -(SP), (SP) 
MOVZWL TIMBUF+ 
PUSHAL MONTH. TABLE-4CRO] 
PUSHL # 
MOVZWL TIMBUF+4, -(SP) 
PUSHAB BUF _DESCRIPT 
PUSHAB DUMMY 
PUSHAB FORMAT 
CALLS #10, @#SYS$FAO 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
1000 00:01.9 
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COMMAND QUALIFIERS 


1f-}ep-] 964 09:35:44 


PehmGmatens chit sReacertim.e32:1°%" (28 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:GETTIM/OBJ=OBJ$:GETTIM MSRC$:GETTIM/UPDATE=(ENH$:GETTIM) 


Size: 108 one + 64 data bytes 
Elapsed Time: 0 319.1 
Lexenes/CPU-Min: 27802 


penety Used: 112 pages 
Compilation Complete 
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